home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_24_1988_Transactor_Publishing.d64 / error check.src < prev    next >
Text File  |  2023-02-26  |  565b  |  32 lines
  1. .opt list,gen,noerr
  2. *=$02a7
  3. old=$0000
  4. strout=$ab1e
  5. error=$a465
  6. lda    $0300
  7. sta    $02c8
  8. lda    $0301
  9. sta    $02c9           ;save old vector
  10. lda    #$c3
  11. sta    $0300
  12. lda    #$02
  13. sta    $0301           ;store new vector
  14. lda    #$60
  15. sta    $02a7           ;protect vector
  16. rts
  17. start  cpx #$10        ;chk for out of mem
  18. beq    outmem
  19. jump   jmp old
  20. outmem txa
  21. tsx
  22. cpx    $22
  23. bcc    stackv          ;goto stack overflow
  24. tax
  25. bcs    jump
  26. stackv lda #$dd
  27. ldy    #$02
  28. jsr    strout
  29. jmp    error
  30. .byte  $53,$54,$41,$43,$4b,$20,$4f,$56
  31. .byte $45,$52,$46,$4c,$4f,$57,$00,$00
  32.